home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Utilities / Programming / MT2Trivial 2.1.3 / MT2Trivial 2.1.3 ƒ / MT2Trivial Templates ƒ / NewWindow.p.Trivial < prev    next >
Encoding:
Text File  |  1996-07-28  |  289 b   |  12 lines  |  [TEXT/MPS ]
  1.  
  2. {%%DOC: NewWindow.p.Trivial -- begin}
  3.  
  4.  PROCEDURE  DoNewWindow ( WINDId : integer; var window : WindowPtr);
  5.   begin {DoNewWindow}
  6.  
  7.    window := nil;
  8.    window := GetNewWindow ( WINDId,nil,WindowPtr(-1)); {%%? >> GetNewCWindow << }
  9.  end; {DoNewWindow}
  10.  
  11. {%%DOC: NewWindow.p.Trivial -- eof}
  12.